МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА кафедра «Захист інформації»
Звіт
До лабораторної роботи №1 з курсу «Комп’ютерна графіка»
Мета роботи - навчитися ініціалізувати графічний режим та вивчити основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зобра-жень та графіків функцій.
1. Навчитися ініціалізувати графічний режим роботи відеоадаптера в середовищі Турбо-Паскаль.
2. Вивчити основні графічні процедури та функції алгоритмічної мови Турбо-Паскаль.
3.Написати програму на алгоритмічній мові Турбо-Паскаль, яка виводить на екран певне графічне зображення. Розміри, вказані в завданнях, проставити на кресленні. Варіанти завдань беруть за вказівкою викладача з таблиці 1.
7
Побудувати п'ятикутну зірку.
Список ідентифікаторів констант, змінних, процедур і функцій, використаних в програмі, та їх пояснення.
Всі процедури та функції, необхідні для графічного режиму роботи адаптера, знаходяться в модулі GRAPH.TPU і стають доступними лише після запису на початку програми оператора USES GRAPH.
Процедура CLOSEGRAPH завершує роботу адаптера в графічному режимі і повертає текстовий режим.
Outtextxy – вивід тексту
Line – будує лінію по заданим координатам
Остаточно відлагоджений текст програми згідно з отриманим завданням.
Program labo_one_mazur;
Uses Crt, Graph;
var Gd, Gm : integer;
x0, x1, x2, x3, x4, x5, y0, y1, y2, y3, y4, y5, r : real;
Begin
Gd := DETECT;
InitGraph(Gd, Gm, '');
if GraphResult = grOK then begin
x0 := 319;
y0 := 239;
r := 100;
x1 := x0;
y1 := y0 - r;
x2 := x0 + r * 0.951056;
y2 := y0 - r * 0.309016;
x3 := x0 + r * 0.587785;
y3 := y0 + r * 0.809016;
x4 := x0 - r * 0.587785;
y4 := y3;
x5 := x0 - r * 0.951056;
y5 := y2;
line(trunc(x1), trunc(y1), trunc(x4), trunc(y4));
line(trunc(x4), trunc(y4), trunc(x2), trunc(y2));
line(trunc(x2), trunc(y2), trunc(x5), trunc(y5));
line(trunc(x5), trunc(y5), trunc(x3), trunc(y3));
line(trunc(x3), trunc(y3), trunc(x1), trunc(y1));
{ circle(trunc(x0), trunc(y0), trunc(r)); }
end;
OutTextXY(1, 32, 'Press any key to continue...');
Readln;
End.
Висновок: на даній лабораторній роботі навчився ініціалізувати графічний режим та вивчив основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зображень та графіків функцій.
